/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / FreeHand 3.1 / Aldus FreeHand 3.1 DEMO / Aldus FreeHand 3.1 DEMO.rsrc / Post_10002

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 0d 73 75 70 64 69 | 63 74 20 62 65 67 69 6e |. .supdi|ct begin|
|00000010| 0a 2f 74 65 65 74 68 73 | 69 7a 65 14 7b 20 64 79 |./teeths|ize.{ dy|
|00000020| 20 74 65 65 74 68 20 64 | 69 76 20 7d 20 64 65 66 | teeth d|iv } def|
|00000030| 0a 2f 64 72 61 77 74 6f | 6f 74 68 1c 7b 20 64 78 |./drawto|oth.{ dx|
|00000040| 20 74 65 65 74 68 73 69 | 7a 65 20 32 20 64 69 76 | teethsi|ze 2 div|
|00000050| 20 72 6c 69 6e 65 74 6f | 24 64 78 20 6e 65 67 20 | rlineto|$dx neg |
|00000060| 74 65 65 74 68 73 69 7a | 65 20 32 20 64 69 76 20 |teethsiz|e 2 div |
|00000070| 72 6c 69 6e 65 74 6f 20 | 7d 20 64 65 66 0a 2f 74 |rlineto |} def./t|
|00000080| 65 65 74 68 6c 6f 6f 70 | 22 7b 20 74 65 65 74 68 |eethloop|"{ teeth|
|00000090| 20 7b 20 64 72 61 77 74 | 6f 6f 74 68 20 7d 20 72 | { drawt|ooth } r|
|000000a0| 65 70 65 61 74 20 7d 20 | 64 65 66 04 2f 73 66 78 |epeat } |def./sfx|
|000000b0| 18 7b 20 78 31 20 78 32 | 20 61 64 64 20 64 78 20 |.{ x1 x2| add dx |
|000000c0| 64 69 76 20 7d 20 64 65 | 66 04 2f 73 66 79 18 7b |div } de|f./sfy.{|
|000000d0| 20 79 31 20 79 32 20 61 | 64 64 20 64 79 20 64 69 | y1 y2 a|dd dy di|
|000000e0| 76 20 7d 20 64 65 66 03 | 65 6e 64 0b 2f 74 69 67 |v } def.|end./tig|
|000000f0| 65 72 74 65 65 74 68 01 | 7b 0d 73 75 70 64 69 63 |erteeth.|{.supdic|
|00000100| 74 20 62 65 67 69 6e 0b | 71 20 6e 65 77 69 6e 73 |t begin.|q newins|
|00000110| 69 64 65 0a 2f 63 6f 6c | 6f 72 20 78 64 66 0b 63 |ide./col|or xdf.c|
|00000120| 6f 6c 6f 72 63 68 6f 69 | 63 65 0a 2f 63 6f 6c 6f |olorchoi|ce./colo|
|00000130| 72 20 78 64 66 0a 2f 61 | 6e 67 6c 65 20 78 64 66 |r xdf./a|ngle xdf|
|00000140| 0a 2f 74 65 65 74 68 20 | 78 64 66 1b 64 78 20 32 |./teeth |xdf.dx 2|
|00000150| 20 64 69 76 20 64 79 20 | 32 20 64 69 76 20 74 72 | div dy |2 div tr|
|00000160| 61 6e 73 6c 61 74 65 0c | 61 6e 67 6c 65 20 72 6f |anslate.|angle ro|
|00000170| 74 61 74 65 0d 73 66 78 | 20 73 66 79 20 73 63 61 |tate.sfx| sfy sca|
|00000180| 6c 65 18 2f 78 73 74 61 | 72 74 20 64 78 20 32 20 |le./xsta|rt dx 2 |
|00000190| 64 69 76 20 6e 65 67 20 | 64 65 66 18 2f 79 73 74 |div neg |def./yst|
|000001a0| 61 72 74 20 64 79 20 32 | 20 64 69 76 20 6e 65 67 |art dy 2| div neg|
|000001b0| 20 64 65 66 07 62 61 63 | 6b 67 6e 64 0b 63 6f 6c | def.bac|kgnd.col|
|000001c0| 6f 72 63 68 6f 69 63 65 | 1e 78 73 74 61 72 74 20 |orchoice|.xstart |
|000001d0| 79 73 74 61 72 74 20 6d | 20 74 65 65 74 68 6c 6f |ystart m| teethlo|
|000001e0| 6f 70 20 66 69 6c 6c 05 | 51 20 65 6e 64 05 7d 20 |op fill.|Q end.} |
|000001f0| 64 65 66                |                         |def     |        |
+--------+-------------------------+-------------------------+--------+--------+